tests/TESTS WITH WRONG LIKELIHOOD/convergence_comp/Experiment series 7 - Geweke no MH/convcomp_stats_batch_geweke.R

In fintzij/augSIR: Estimation of stochastic SIR epidemic parameters via Bayesian data augmentation.

library(batch)
k=0
for (popsize in c(10, 20)) {
    for (censusInterval in c(0.05, 0.2, 0.5, 1)) {
        for (samp_prob in c(0.4)) {
            for (resample_prop in c(1)) {
                for (initialization_num in 1) {
                    for(R0 in c(4, 8)){
                        k = k+1
                        rbatch("./convcomp_augSIR_geweke.R", seed = k, popsize = popsize, censusInterval = censusInterval, samp_prob = samp_prob, resample_prop = resample_prop, initialization_num = initialization_num, R0 = R0)
                    }
                }
            }
        }
    }
}

# rbatch("./convcomp_cluster_code.R", seed = 1, popsize = 25, censusInterval = 0.2, samp_prob = 0.5, resample_prop = 1, initialization_num = 1)
# rbatch("./convcomp_rjmcmc_statsclust.R", seed = 2, popsize = 25, censusInterval = 0.2, samp_prob = 0.5, resample_prop = 1, initialization_num = 1)